home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Demos / AppMaker 2.0b3 / Demo AppMaker 1.5 / Demo AppMaker™ / Demo AppMaker™.rsrc / TmpP_109_Dispatcher < prev    next >
Encoding:
Text File  |  1992-04-08  |  3.3 KB  |  182 lines
  1. { %filename% -- dispatcher for windows and for modeless dialogs }
  2. { Created %date% %time% by AppMaker }
  3.  
  4. Unit %unitname%;
  5. Interface
  6.  
  7. Uses
  8. %if lang = MPW%
  9.         Types,
  10.         Quickdraw,
  11.         Controls,
  12.         Dialogs,
  13.         Events,
  14.         Lists,
  15.         Menus,
  16.         TextEdit,
  17.  
  18. %end if%
  19.     %for each window gen useswindow%
  20.     %for each dialog gen usesmodeless%
  21.  
  22.     Globals;
  23.  
  24. {----------}
  25. Procedure DoIdle;
  26. Procedure OpenWindows        (fName:            Str255;
  27.                              vRefNum:        integer;
  28.                              fRefNum:        integer);
  29. Procedure CloseCurWindow;
  30. Procedure DoControl            (whichControl:    ControlHandle;
  31.                              whichPart:        integer;
  32.                              where:            Point);
  33. Procedure MouseInContent    (where:            Point;
  34.                              modifiers:        integer);
  35. Procedure TypeInWindow        (ch:            char);
  36. Procedure UpdateContent;
  37. Procedure ActivateContent    (activate:        boolean);
  38. Procedure ResizeContent;
  39. Procedure ScrollWindow        (newValue:        integer;
  40.                              oldValue:        integer);
  41.  
  42. Procedure InitModelessDialogs;
  43. Procedure CloseModelessDialog (whichDialog:    DialogPtr);
  44. Function  FilterModeless    (whichDialog:    DialogPtr;
  45.                          var event:            EventRecord;
  46.                          var itemHit:        integer): boolean;
  47. Procedure DoModelessItem    (whichDialog:    DialogPtr;
  48.                              itemNr:        integer);
  49.  
  50. {----------}
  51. Implementation
  52.  
  53. %if lang = MPW%
  54.     {$D+}
  55.     {$R+}
  56.     {$OV+}
  57.     {$S %unitname%}
  58.  
  59. %end if%
  60. {----------}
  61. Procedure DoIdle;
  62. Begin
  63. End; {DoIdle}
  64.  
  65. {----------}
  66. Procedure OpenWindows    (fName:        Str255;
  67.                          vRefNum:    integer;
  68.                          fRefNum:    integer);
  69. Begin
  70.     %for each window gen open%
  71.  
  72. End; {OpenWindows}
  73.  
  74. {----------}
  75. Procedure CloseCurWindow;
  76. Begin
  77.     case cur^.windowKind of
  78.         %for each window gen close%
  79.  
  80.     end; {case}
  81. End; {CloseCurWindow}
  82.  
  83. {----------}
  84. Procedure DoControl    (whichControl:    ControlHandle;
  85.                      whichPart:        integer;
  86.                      where:            Point);
  87. Begin
  88.     case cur^.windowKind of
  89.         %for each window gen track%
  90.  
  91.     end; {case}
  92. End; {DoControl}
  93.  
  94. {----------}
  95. Procedure MouseInContent    (where:        Point;
  96.                              modifiers:    integer);
  97. Begin
  98.     case cur^.windowKind of
  99.         %for each window gen mousein%
  100.  
  101.     end; {case}
  102. End; {MouseInContent}
  103.  
  104. {----------}
  105. Procedure TypeInWindow    (ch:        char);
  106. Begin
  107.     case cur^.windowKind of
  108.         %for each window gen typein%
  109.  
  110.     end; {case}
  111. End; {TypeInWindow}
  112.  
  113. {----------}
  114. Procedure UpdateContent;
  115. Begin
  116.     case cur^.windowKind of
  117.         %for each window gen update%
  118.  
  119.     end; {case}
  120. End; {UpdateContent}
  121.  
  122. {----------}
  123. Procedure ActivateContent    (activate:    boolean);
  124. Begin
  125.     case cur^.windowKind of
  126.         %for each window gen activate%
  127.  
  128.     end; {case}
  129. End; {ActivateContent}
  130.  
  131. {----------}
  132. Procedure ResizeContent;
  133. Begin
  134.     case cur^.windowKind of
  135.         %for each window gen resize%
  136.  
  137.     end; {case}
  138. End; {ResizeContent}
  139.  
  140. {----------}
  141. Procedure ScrollWindow     (newValue:    integer;
  142.                          oldValue:    integer);
  143. Begin
  144.     case cur^.windowKind of
  145.         %for each window gen scroll%
  146.  
  147.     end; {case}
  148. End; {ScrollWindow}
  149.  
  150. {----------}
  151. Procedure InitModelessDialogs;
  152. Begin
  153.     %for each dialog gen init%
  154.  
  155. End; {InitModelessDialogs}
  156.  
  157. {----------}
  158. Procedure CloseModelessDialog (whichDialog:    DialogPtr);
  159. Begin
  160.     %for each dialog gen close%
  161.  
  162. End; {CloseModelessDialog}
  163.  
  164. {----------}
  165. Function FilterModeless        (whichDialog:    DialogPtr;
  166.                          var event:            EventRecord;
  167.                          var itemHit:        integer): boolean;
  168. Begin
  169.     %for each dialog gen filter%
  170.  
  171. End; {FilterModeless}
  172.  
  173. {----------}
  174. Procedure DoModelessItem     (whichDialog:    DialogPtr;
  175.                              itemNr:        integer);
  176. Begin
  177.     %for each dialog gen handleitem%
  178.  
  179. End; {DoModelessItem}
  180.  
  181. End. {%unitname%}
  182.